BlockWrite               Writes Block(s) to Untyped File

 BlockWrite(var OutFile : file; Storage : <type>; NumBlocks : Integer);  [TP]

    Writes out some number of blocks from any type of variable or data
    structure into an untyped file. You must call Assign and Rewrite (or
    Reset, followed by a call to Seek) before calling BlockWrite.

         OutFile    Untyped file; must have been previously opened using
                    Assign and Rewrite, Append, or Truncate; if you are
                    using Seek, can also have been opened with Reset.

         Storage    A variable of <type>; should be at least as large as
                    NumBlocks * block size.

          <type>    Any data type except a file type.

       NumBlocks    The number of blocks to be written out.

    Block size is by default 128 bytes; however, it is possible to set the
    block size to another value when you call Reset or Rewrite.

  -------------------------------- Example ---------------------------------

           BlockWrite(UFile,Buffer,4);      { write 512 bytes }